<!--#include virtual="/common/Config.asp" -->
<!--#include virtual="/common/conn.asp" -->
<!--#include virtual="/common/function.asp" -->
<%
'取新闻详细
Dim News_ID			
Dim Info_Type_ID		
Dim Info_Title		
Dim Info_URL		
Dim Info_ZY			
Dim Info_Content
Dim Info_Type
Dim Info_Type2
Dim Info_From
Dim Info_PicPath
Dim Update_Date
Dim Update_Name
Sub  Get_News_Detail()
	News_ID = Requery("Info_ID")

	Call Check_IsNumeric(News_ID)

	Sql = "SELECT Info_Type_ID,Info_Title,Info_URL,Info_ZY,Info_Content,Update_Date,BT_Name,IT_Name,Update_Name,Info_From FROM uvw_News WHERE Info_ID="&News_ID
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 
		Info_Type_ID= Array_List(0,0)
		Info_Title	= Array_List(1,0)
		Info_URL	= Array_List(2,0)
		Info_ZY		= Array_List(3,0)
		Info_Content= Array_List(4,0)
		Update_Date = Array_List(5,0)
		Info_Type	= Array_List(6,0)
		Info_Type2  = Array_List(7,0)
		Update_Name = Array_List(8,0)
		Info_From	= Array_List(9,0)
	Else
		AlertBox "记录不存在!","javascript:history.go(-1)"
	End If 
	
End Sub
Sub Get_News_List(News_Sub_Type,number)
	Sql = "SELECT  TOP "&number&" b.Info_ID,b.Info_Title,b.Info_Pic,b.Info_URL,b.Update_Date FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='"&News_Sub_Type&"' ORDER  BY a.Sort_Order ASC"
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 

		For i=0 To UBound(Array_List,2)
			news_id		= Array_List(0,i)
			news_title	= cutstr(Array_List(1,i),20)
			news_pic	= Array_List(2,i)

			Info_URL	= Array_List(3,i)
			If Info_URL<>"" Then 
				news_detail_url = Info_URL

			Else			
				news_detail_url = "/news/news_view.asp?Info_ID="&news_id
			End If 

			echo "<li><a href="""&news_detail_url&""" target=""_blank""><img src="""&news_pic&""" width=130 height=88/></a><p class=""n""><a href="""&news_detail_url&""" target=""_blank"">"&news_title&"</a></p></li>"
		Next 
	End If 

End Sub 
Sub Get_News_List2(News_Sub_Type,number)
	Sql = "SELECT  TOP "&number&" b.Info_ID,b.Info_Title,b.Info_Pic,b.Info_URL,b.Update_Date FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='"&News_Sub_Type&"' ORDER  BY a.Sort_Order ASC"
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 

		For i=0 To UBound(Array_List,2)
			news_id		= Array_List(0,i)
			news_title	= cutstr(Array_List(1,i),20)
			news_pic	= Array_List(2,i)

			Info_URL	= Array_List(3,i)
			If Info_URL<>"" Then 
				news_detail_url = Info_URL

			Else			
				news_detail_url = "/news/news_view.asp?Info_ID="&news_id
			End If 

			'echo "<li>·<a href="""&news_detail_url&""" target=""_blank"">"&news_title&"</a></li>"
			echo "<li><a href="""&news_detail_url&""" target=""_blank""><img src="""&news_pic&""" width=130 height=88/></a><p class=""n""><a href="""&news_detail_url&""" target=""_blank"">"&news_title&"</a></p></li>"
		Next 
	End If 

End Sub 
Sub Get_News_List3(News_Sub_Type,number)
	Sql = "SELECT  TOP "&number&" b.Info_ID,b.Info_Title,b.Info_Pic,b.Info_URL,b.Update_Date,IT_Name FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='"&News_Sub_Type&"' ORDER  BY a.Sort_Order ASC"
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 
		news_id		= Array_List(0,0)
		news_title	= cutstr(Array_List(1,0),20)
		news_pic	= Array_List(2,0)

		Info_URL	= Array_List(3,0)
		If Info_URL<>"" Then 
			news_detail_url = Info_URL

		Else			
			news_detail_url = "/news/news_view.asp?Info_ID="&news_id
		End If 

		echo "<h1><a href="""&news_detail_url&""">"&news_title&"</a></h1>"
		echo "<ul>"

		For i=1 To UBound(Array_List,2)
			news_id		= Array_List(0,i)
			news_title	= cutstr(Array_List(1,i),30)
			news_pic	= Array_List(2,i)

			Info_URL	= Array_List(3,i)
			IT_Name		= Array_List(5,i)
			If Info_URL<>"" Then 
				news_detail_url = Info_URL

			Else			
				news_detail_url = "/news/news_view.asp?Info_ID="&news_id
			End If 

			echo "	<li>·<a href="""&news_detail_url&""">"&news_title&"</a></li>"

		Next 
		echo "</ul>"

	End If 

End Sub 
Sub Get_News_List4(News_Sub_Type,number)
	Sql = "SELECT  TOP "&number&" b.Info_ID,b.Info_Title,b.Info_Pic,b.Info_URL,b.Update_Date FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='"&News_Sub_Type&"' ORDER  BY a.Sort_Order ASC"
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 

		For i=0 To UBound(Array_List,2)
			news_id		= Array_List(0,i)
			news_title	= cutstr(Array_List(1,i),17)
			news_pic	= Array_List(2,i)

			Info_URL	= Array_List(3,i)
			Update_Date	= Array_List(4,i)
			If Info_URL<>"" Then 
				news_detail_url = Info_URL

			Else			
				news_detail_url = "/news/news_view.asp?Info_ID="&news_id
			End If 

			echo "<li><a href="""&news_detail_url&""">·"&news_title&"</a><span>"&Update_Date&"</span></li>"

		Next 
	End If 

End Sub 
Sub Get_News_List5(News_Sub_Type,number)
	Sql = "SELECT  TOP "&number&" b.Info_ID,b.Info_Title,b.Info_Pic,b.Info_URL,b.Update_Date FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='"&News_Sub_Type&"' ORDER  BY a.Sort_Order ASC"
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 

		For i=0 To UBound(Array_List,2)
			news_id		= Array_List(0,i)
			news_title	= cutstr(Array_List(1,i),16)
			news_pic	= Array_List(2,i)

			Info_URL	= Array_List(3,i)
			Update_Date	= Array_List(4,i)
			If Info_URL<>"" Then 
				news_detail_url = Info_URL

			Else			
				news_detail_url = "/news/news_view.asp?Info_ID="&news_id
			End If 

			echo "<li><a href="""&news_detail_url&""">·"&news_title&"</a></li>"

		Next 
	End If 

End Sub 

Sub Get_News_List6(News_Sub_Type,number)
	Sql = "SELECT  TOP "&number&" b.Info_ID,b.Info_Title,b.Info_Pic,b.Info_URL,b.Update_Date FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='"&News_Sub_Type&"' ORDER  BY a.Sort_Order ASC"
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 

		For i=0 To UBound(Array_List,2)
			news_id		= Array_List(0,i)
			news_title	= cutstr(Array_List(1,i),25)
			news_pic	= Array_List(2,i)

			Info_URL	= Array_List(3,i)
			Update_Date	= Array_List(4,i)
			If Info_URL<>"" Then 
				news_detail_url = Info_URL

			Else			
				news_detail_url = "/news/news_view.asp?Info_ID="&news_id
			End If 

			echo "<li><a href="""&news_detail_url&""">·"&news_title&"</a></li>"

		Next 
	End If 

End Sub 

Sub News_Related_List()
	Sql = "SELECT  TOP 5 b.Info_ID,b.Info_Title,b.Info_Pic,b.Info_URL,b.Update_Date FROM  uvw_News B WHERE  b.IT_Name='"&Info_Type2&"' ORDER  BY b.Info_ID DESC"
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 

		For i=0 To UBound(Array_List,2)
			news_id		= Array_List(0,i)
			news_title	= cutstr(Array_List(1,i),20)
			news_pic	= Array_List(2,i)

			Info_URL	= Array_List(3,i)
			Update_Date	= Array_List(4,i)
			If Info_URL<>"" Then 
				news_detail_url = Info_URL

			Else			
				news_detail_url = "/news/news_view.asp?Info_ID="&news_id
			End If 

			echo "<li><a href="""&news_detail_url&""">·"&news_title&"</a></li>"

		Next 
	End If 


End Sub 
Sub Get_News_Special_List(News_Sub_Type,number)
	Sql = "SELECT  TOP "&number&" b.Info_ID,b.Info_Title,b.Info_Pic,b.Info_URL,b.Update_Date,IT_Name FROM uvw_Sort_Info a INNER JOIN uvw_News b ON a.Info_ID = b.Info_ID  WHERE  a.Sort_Sub_Name='"&News_Sub_Type&"' ORDER  BY a.Sort_Order ASC"
	Array_List = GetRsRows(Sql)
	If IsArray(Array_List) Then 
		news_id		= Array_List(0,0)
		news_title	= cutstr(Array_List(1,0),20)
		news_pic	= Array_List(2,0)

		Info_URL	= Array_List(3,0)
		If Info_URL<>"" Then 
			news_detail_url = Info_URL

		Else			
			news_detail_url = "/news/news_view.asp?Info_ID="&news_id
		End If 

		echo "<p><a href="""&news_detail_url&""" target=""_blank""><img src="""&news_pic&""" width=228 height=70/></a></p>"
		echo "<h3><a href="""&news_detail_url&""" target=""_blank"">"&news_title&"</a></h3>"
		echo "<ul>"

		For i=1 To UBound(Array_List,2)
			news_id		= Array_List(0,i)
			news_title	= cutstr(Array_List(1,i),20)
			news_pic	= Array_List(2,i)

			Info_URL	= Array_List(3,i)
			IT_Name		= Array_List(5,i)
			If Info_URL<>"" Then 
				news_detail_url = Info_URL

			Else			
				news_detail_url = "/news/news_view.asp?Info_ID="&news_id
			End If 

			echo "<li><a href="""&news_detail_url&""">"&news_title&"</a></li>"

		Next 
		echo "</ul>"

	End If 

End Sub 
%>
